home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48_2
/
life
< prev
next >
Wrap
Internet Message Format
|
1995-03-31
|
14KB
Path: seq!spell
From: Lutz Vieweg <lv@muffel.hotb.sub.org>
Subject: v02i013: life - LIFE Simulation v1.0, Part01/01
Newsgroups: comp.sources.hp48
Followup-To: comp.sys.hp48
Approved: spell@seq.uncwil.edu
Checksum: 2151171997 (verify with brik -cv)
Submitted-by: Lutz Vieweg <lv@muffel.hotb.sub.org>
Posting-number: Volume 2, Issue 13
Archive-name: life/part01
BEGIN_RDME life.rdm
A life-simulation for the 48sx, parts written in ML.
This program and DOC have not been written by me. I submit it for a
friend who does not have access to the UseNet. But if you have urgent
questions about it, contact me via EMail.
cu, Lutz Vieweg
END_RDME
BEGIN_DOC life.doc
LIFE is Freeware from Timm Ganske
Vordergasse 67
W-6054 Rodgau 1/Juegesheim
Germany
Usage:
Life expects a GROB from the stack and calculates life until a key is
pressed
Dont use ON
Life1 calculates only one iteration of life
Both return the actual graphic
Bild1
Bild2
Demo pictures, Bild 2 is the classical 'Gleiterkanone'
END_DOC
BEGIN_ASC life.asc
%%HP: T(3)A(R)F(.);
"69A20FF79D410000003085133330D9D20E16321C432D6E2010C4D6E201085D6E
201095D6E2010A5E16323C03284E2030851313D6E2010A584E20208553D6E201
09584E20208553D6E20108584E2030851303D6E2010C49C2A2743A23013284E2
03085130384E20208593C42323FBF13FBF1D6E20108584E202085838DBF1D6E2
0109584E202085638DBF1D6E2010A584E202085738DBF1DE032378A19B6328DB
F1EF53293632B2130F31003085132330D9D20E16321C432D6E2010C4D6E20108
5D6E201095D6E2010A5E163284E2030851313D6E2010A584E20208553D6E2010
9584E20208553D6E20108584E2030851303D6E2010C49C2A2743A23013284E20
3085130384E20208593C42323FBF13FBF1D6E20108584E202085838DBF1D6E20
109584E202085638DBF1D6E2010A584E202085738DBF1EF53293632B21306210
03085131330CCD207B1008FB976014313034E1B201428A2606481AF2169146CE
129164AF0146D7AE53170D00E61969D0B64C4A6D5AFCCDBDA1643470000CA81C
81C81CC41031FB550714713514334E1B208A2606E0117EAF2143307C281E81E8
1EC6D5174113E281CCC81C81C81C10011381CA64A6C103814D0810C2E610AAEB
A6EAEE31F30E62AF0B746600A74A6E59FA7C104133C013111B80C2AA580D0119
CE1095606660118D7AE1CF472156716FAE0A76550B640E6DAE8155717F69DF15
611140E72A160E6D155113680913612A133CA13312A619FAA980D28F2D760142
164808C6C1003085130330CCD20C32008FB976014313034E1B201428A26068F1
AF2169146129164AF01421041643470000CA81C81C81CC41031FB55071471351
4334E1B208A26066A117EAF2143307C281E81E81EC6D5174113E281CCC81C81C
81C10011381CA64A6C103814D0810C2E610AAF0B6481011B8166600810A4E59F
A7C97C50A7C12434700000EF68A861E2114660081CCE5AF10481B43401100CA1
33D21574A4E5803078161554133E4812C6CA13311B157410B1701574A4E480C0
67FF13111B80C2AA580D0119CE1095606D80118D7CF424157717E14B17012BAC
712BA4F4C081E81C63FF154716E14816012BAC712B6EBF157112BAC712B1140E
72A4F49081E66FF154113680913612A133CA13312A6A6FAA980D28F2D7601421
64808C00010200121021222B420020859320CCD201E3008FB976014313017414
717414310217414310313534E1B201428A6F41641438A6441741331211221331
438A6D21741331221231331438A66117414216E14717E8A26066431331231221
3314717E8A67E13312212113314717E8A60DAF3D73411000E380CF12881FAEB8
0D0817AC3CF5606F6115671537AF80E761507AFABFE0E75BFD0E700E7E151717
F13312112213315671537AF80E761507AFABFE0E75BFD0E700E7E151717F1331
2212313315671537AF80E761507AFABFE0E75BFD0E700E7E151717F133123121
13316F15671537AF80E761507AFABFE0E75BFD0E700E7E151717F13312112213
315671537AF80E761507AFABFE0E75BFD0E700E7E151717F1331221231331567
1537AF80E761507AFABFE0E75BFD0E700E7E151717F13312312113316F6E8E15
611531A980E161501A9AB9E0E15B9D0E100E1E15111378091371331211221331
5611531A980E161501A9AB9E0E15B9D0E100E1E1511137809137133122123133
15611531A980E161501A9AB9E0E15B9D0E100E1E151113780913713312312113
313680913615611531A980E161501A9AB9E0E15B9D0E100E1E15111331211221
3315611531A980E161501A9AB9E0E15B9D0E100E1E1511133122123133156115
31A980E161501A9AB9E0E15B9D0E100E1E151113312312113312880DF8F2D760
142164808CEE30020858320CCD20DB0008FB976014313017414313114334E1B2
08A62214234E1B208A6311641741421478A260616016E17EAF3D73401000E380
CF128AEB80D0817AC3CF4C1156715370E7A155716F17F64EF156115310E1A155
112880DF8F2D760142164808CAC00020857320CCD20901008FB9760143130174
14313134E1B201438A6B11428A6311641741421478A26064B016E17EAF3D7341
1000E380CF12881FAEB80D0817AC3CF4E31567BFE1537AF80E76151716F17F15
67BFE1537AF80E76151716F17F62CF1561B9E1531A980E161511136809136137
8091371561B9E1531A980E16151112880DF8F2D760142164808C611002085632
0CCD20DF0008FB976014313017414313134E1B201438A6B11428A63116417414
21478A26068A016E17EAF3D73411000E380CF12881FAEB80D0817AC3CF483156
71537AF80E76151716F17F15671537AF80E76151716F17F68CF15611531A980E
16151113680913613780913715611531A980E16151112880DF8F2D7601421648
08CA010020855320CCD20290008FB976014313034E1B201428A62616414216EA
F1D83411000E181D80CF128AE980D0AF2815AC1CD441154716F154716F6CEF15
41136809136154112880DF8F2D760142164808CF900050C49464541350D9D20E
163278BF176BA1634E1EFE0278BF18B9C1ED2A276BA1DBBF1ED2A276BA1DBBF1
102E147A20E4A20510000000000000000000E4A20510000000000000000000B2
1300F2E178BF1CB2A178BF1CB2A178BF1CB2A178BF1CB2A184E2030851323936
32B2130BD00040C494645440D9D20E163278BF176BA1634E1EFE0278BF18B9C1
ED2A276BA1DBBF1ED2A276BA1DBBF1102E147A20E4A205100000000000000000
00E4A20510000000000000000000B21300F2E178BF1CB2A178BF1CB2A178BF1C
B2A178BF1CB2A184E203085133393632B21309D000502494C4442350E1B20FD4
0083000650000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000004000000000000000000
000A000000000000000000000130400000000000000060013878000000000000
0060013C3800000000000000000A04208100000000000000040C308100000000
0000000008700000000000000000000040000000000000000000000000000000
00000000000000000000000000002F400502494C4441350E1B20F87000400087
00038DFE700000000000000000000000038DFE70000000000000000000000003
8D06000000000000000000000000038D06000000000000000000000000038D06
000000000000000000000000038D7E300000000000000000000000038D7E3000
00000000000000000000038D06000000000000000000000000038D0600000000
00000000000000000FBD0E7000000000000000000000000FBD0E700000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000870F110000830000400000000
00000480400000044000040000000000000231481BC2040EC3E52E0000000000
0A01401555040054141110000000000231401555046E54EC0F10000000000480
401555044154051100000000000870483154087E54F42E000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000004000
00000000010000000000000000A0000000000082000000000000000013040000
00004C00100000000006001387800008104C0E1200000000060013C380000810
4C0F02000000000000A0420810000082090060000000000040C308100000010F
00600000000000008700000000000E1000000000000000040000000000001000
0000000000000000000000000000000000000000000000000000000000000000
000BF6B"
END_ASC
BYTES: #B6FBh 3658
BEGIN_UU life.uue
begin 644 life
M2%!(4#0X+466*O!_V10````#6#$S`YTMX&$CP332Y@(!3&TN$(#5Y@(!66TN%
M$*#E82/#,(+D`@-8,3%M+A"@A>0"`E@U;2X0D(7D`@)8-6TN$("%Y`(#6#$PJ
M;2X0P)0L*D>C,A`C2"XP@!4#@^0"`E@Y3#(ROQ_S^]'F`@%82"X@@(6#O1]MI
M+A"0A>0"`E@VV/O1Y@(!6D@N((!U@[T?[3`RAQJY-H*]'_XUDF,C*S'P$P`#U
M6#$R`YTMX&$CP332Y@(!3&TN$(#5Y@(!66TN$*#E82-(+C"`%1/3Y@(!6D@NN
M((!5T^8"`5E(+B"`5=/F`@%82"XP@!4#T^8"`4S)HG(T*@,Q@N0"`U@Q,$@N-
M(("5PR0C\_LQOQ]M+A"`A>0"`E@XV/O1Y@(!64@N((!E@[T?;2X0H(7D`@)8^
M-]C[X5\C.3:R$@,F`3"`%1,SP-P"MP&`OWD&01,#0QXK$"2H8F"$H2]A&63LN
M(1E&^A!D?>HU<=``;I&6#6O$I-:ES]S;&D9#!P#`BL$8C,%,`1._57!!%U-!R
M,^2Q`JAB8`X1Y_H2-`/'@N$8CN%L77$4,2X8S(S!&(S!`1`Q&*Q&:APP&-2`*
M`2QN`:J^:J[N$S_@)OJP1V8`>J3FE:_'`10S##$1L0@LJH70$)'L`5D&9@81^
MV*<>_'0291?VZJ!G5;!&X-;J&%47]Y;]4181!'ZB8>#6414QAI`Q%J(QPQHS\
M(6J1KYH(+?C29Q`D882`;!P``U@Q,`/,+<`C`/B;9Q`T,3#DL0)!@BH&AA_Z`
M$I9!%I)AI`]!$D!A-'0``*P8C,$8S!0P\5L%%W0Q%31#'BN`*@9F&G&N+T$S'
M<"P8CN$8SM851Q'C@L',&(S!&!P`$8/!:J3&`8-!#1C`XA:@^K!&&!"Q&&8&Q
M@`%*7OEZG,<%>AQ"0P<``/Z&BA8N$60&@,'LI1]`&$M#$`'`&C,M44=*7@@#D
MAV%113'CA"%LK#$3L5%'`1L'44=*3@@,=O\Q$;$(+*J%T!"1[`%9!M8($=C'U
M3T)1=W$>M'$0LLH7LDI/#!B.P3;_471A'H1A$++*%[+F^U$7(:M\(1M!X"=*C
M3PD8;O8?11%C"!EC(1HSK#$3HJ;VJHG0@B]]!D$21@C(`!`@`"$!$B*R)``"B
M6#D"S"T0/@#XFV<0-#$01T$71T$3('$4-`$34T,>*Q`DJ/841D:D1Q%#,A^
M$2(Q$S2HUA)',1,B(1,S08-J%G$4)&$>='&.*@9F-#$3,B$2,T$7YZAV'C,AE
M$A(Q$W1QCFK0^M,W%`$`/@C\(8CQZHO0@''*PU\&]A91=E%S^@A^%@6GK_L.=
M?K7?X`?@YU%Q<1\S(1$B,1-E%S6GC^!G47#ZNN_@5_L-?@!^'A47]S$3(B$3,
M,U%V47/Z"'X6!:>O^PY^M=_@!^#G47%Q'S,A$Q(Q$_91=E%S^@A^%@6GK_L.&
M?K7?X`?@YU%Q<1\S(1$B,1-E%S6GC^!G47#ZNN_@5_L-?@!^'A47]S$3(B$3,
M,U%V47/Z"'X6!:>O^PY^M=_@!^#G47%Q'S,A$Q(Q$_;FZ%$641.:"!X6!:&IA
MFPX>M=G@`>#A41$QAY`Q%S,A$2(Q$V41-:&)X&%1$)JZZ>!1FPT>`!X>%1%SI
M"!ES,1,B(1,S4191$YH('A8%H:F;#AZUV>`!X.%1$3&'D#$7,R$3$C$38P@9`
M8U$641.:"!X6!:&IFPX>M=G@`>#A41$Q$Q(A$C-1%E$3F@@>%@6AJ9L.'K79+
MX`'@X5$1,1,B(1,S4191$YH('A8%H:F;#AZUV>`!X.%1$3$3,B$1,R&(T(\O0
M?09!$D8(R.X#(("%(\#<`KT`@+]Y!D$3`W$4-#$1-$,>*X!J(D$RY+$"J#81@
M1G$4)$&'*@86!F$>Y_K3-P0!`#X(_"&HO@@-&*<\_,0191<U!WX:51?V<6_DF
M'V41-0$>&E41@@C]^-)G$"1AA("L#``"6#<"S"V0$`#XFV<0-#$01T$3$T,>[
M*Q`TJ+81)*@V$49Q%"1!ARH&1@MA'N?ZTS<4`0`^"/PAB/'JB]"`<<K#3SY1_
M=OL>-:>/X&=1<6$?]U%V^QXUIX_@9U%Q81_W)OQ1%IL>-:&)X&%1$3&&D#$6W
M<P@9<U$6FQXUH8G@85$1(8C0CR]]!D$21@C(%@$@@&4CP-P"_0"`OWD&01,#<
M<10T,3'DL0)!@VH;08)J$V$41T$2=*AB8*@0YG&N/WU#$0#@@\`?@ABOO@@-P
M&*<\_(0391<UIX_@9U%Q81_W4791<_H(?A85%_9Q;\@?91$UH8G@85$1,8:0;
M,19S"!ES4191$YH('A85$8((_?C29Q`D882`K!```E@U`LPM(`D`^)MG$#0Q"
M,.2Q`D&":F)A%"1AKA^-0Q$`X('1"/PAJ)X(#?J"4<K!3111=&$?11?VQOY1,
M%#&&D#$611&""/WXTF<0)&&$@/P)``5,249%,06=+>!A(X?[<;8:-N3A[R"'M
M^X&;'-ZB<K8:O?OA+2IGJ]&['P'B0:<"3BI0`0```````````$XJ4`$`````7
M```````K,0`O'H?[P2L:A_O!*QJ'^\$K&H?[P2L:2"XP@!4CDV,C*S&P#0`$C
M3$E&102=+>!A(X?[<;8:-N3A[R"'^X&;'-ZB<K8:O?OA+2IGJ]&['P'B0:<"@
M3BI0`0```````````$XJ4`$````````````K,0`O'H?[P2L:A_O!*QJ'^\$KH
M&H?[P2L:2"XP@!4SDV,C*S&0#0`%0DE,1#(%'BOP30`X`&`%````````````<
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M``````````````````````````````````````````````````!`````````!
M`````*``````````````$`,$``````````80@X<`````````!A##@P``````R
M````H$`"&`````````!`P`,8``````````"`!P`````````````$`````````
M``````````````````````````````#R!%`@E,1$%%/@L0*/!P`$`'@`,-COV
M!P``````````````,-CO!P``````````````,-A@````````````````,-A@!
M````````````````,-A@````````````````,-CG`P``````````````,-CG0
M`P``````````````,-A@````````````````,-A@````````````````\-O@\
M!P``````````````\-O@!P``````````````````````````````````````Z
M````````````````````````````````````@`<?`0"``P!`````````0`@$2
M``!`!`!`````````(!.$L2Q`X#Q>X@``````H!`$455``$5!$0$`````(!,$E
M455`YD7.\`$`````0`@$455`%$50$0``````@`>$$T6`YT5/X@``````````M
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M```````````````````````````````````````$```````0```````````*>
M```````H```````````Q0`````#$``$`````8``Q>`@`@`'$X"$`````8``QM
M/`@`@`'$\"`````````*)(`!```HD``&```````$/(`!```0\``&````````T
M>```````X`$`````````0`````````$`````````````````````````````N
-`````````````````````
``
end
END_UU
--
*** EMail to: lv@muffel.hotb.sub.org ***
*** FidoNet : 2:247/30.20 ***